@BGroupRotate @P@ICopyRight Gold Disk Inc., February, 1992
This Genie will rotate a group given an angle. This will only work for boxes that are on a page. Note that this Genie will rotate boxes @Iby@P the given angle not @Ito@P the given angle. The angle specified is added to the angle of each box in the group.
*/
numeric digits 8
rad = 3.1415926 / 180
address command
call SafeEndEdit.rexx()
call ppm_AutoUpdate(0)
units = ppm_GetUnits()
if units = 3 then
call ppm_SetUnits(1)
signal on halt
signal on break_c
signal on break_e
signal on break_d
if ~show('l', "gdarexxsupport.library") then
if ~addlib("gdarexxsupport.library",0,-30) then
call exit_msg("Please install the gdarexxsupport.library in your libs: directory before running this Genie")